home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / NAMES.SAB < prev    next >
Text File  |  1991-10-15  |  2KB  |  43 lines
  1. write "             " at 2,36
  2. write "NAMES.SAB" at 2,36
  3. set mes off
  4. set err mes off
  5. set v ques to tot.due in cur.mast where add.code = .code
  6. if ques = 0 then ; goto fin ; endif
  7. set v yr to "1991"
  8. SET V nNAME TO tenant1 IN cur.mast where add.code = .code
  9. SET V nADDcode TO ADD.CODE IN cur.mast where add.code = .code
  10. set v nadr to address in cur.mast where add.code = .code
  11. set v nrentdue to tot.due in cur.mast where add.code = .code
  12. LOAD templook USING tenant,add.code,address,rent.due,year
  13. .nNAME,.naddcode,.nADR,.nrentdue,.yr
  14. END
  15. SET V nNAME TO tenant2 in cur.mast where add.code = .code
  16. SET V naddcode to add.code in cur.mast where add.code = .code
  17. SET V nADR TO address in cur.mast where add.code = .code
  18. set v nrentdue to tot.due in cur.mast where add.code = .code
  19. LOAD TEMPlook USING tenant,add.code,address,rent.due,year
  20. .nNAME,.naddcode,.nadr,.nrentdue,.yr
  21. END
  22. SET V nNAME TO tenant3 in cur.mast where add.code = .code
  23. SET V naddcode to add.code in cur.mast where add.code = .code
  24. SET V nadr to address in cur.mast where add.code = .code
  25. set v nrentdue to tot.due in cur.mast where add.code = .code
  26. LOAD TEMPlook USING tenant,add.code,address,rent.due,year
  27. .nNAME,.naddcode,.nadr,.nrentdue,.yr
  28. END
  29. set v nname to tenant4 in cur.mast where add.code = .code
  30. set v naddcode to add.code in cur.mast where add.code = .code
  31. set v nadr to address in cur.mast where add.code = .code
  32. set v nrentdue to tot.due in cur.mast where add.code = .code
  33. load templook using tenant,add.code,address,rent.due,year
  34. .nname,.naddcode,.nadr,.nrentdue,.yr
  35. end
  36. DELETE ROWS FROM TEMPlook WHERE tenant FAILS
  37. append templook to lookup where address exists
  38. del row fro templook whe tenant exists
  39. change prob to "No" in lookup where prob fails
  40. label fin
  41. return
  42.  
  43.